home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 34.zip / BS1 part 34 / Amigacall v3.51 prof.adf / SCRIPT / Ausflug < prev    next >
Text File  |  1989-12-16  |  1KB  |  76 lines
  1. #
  2. # :ts=8 #
  3.  
  4.     list ^l
  5.     Ask     @10,03;Erklaerung (J/N)?
  6.  
  7.     compa !lastline! !with! j
  8.     ifequ    goto babble
  9.  
  10.     compa !lastline! !with! J
  11.     ifequ    goto babble
  12.     goto    ReallyDoIt
  13.  
  14. :babble
  15. print "=================================================================
  16. print
  17. print "  AUSFLUG INS GRUENE  (by Markus Schmidt)
  18. print
  19. print "    Dieses Script laesst ein kleines Auto ueber den Bildschirm
  20. print "    fahren (ja, Sie haben richtig gelesen). Das Auto wuerde wahr-
  21. print "    scheinlich laenger fahren, wenn da nicht dieses Hindernis   
  22. print "    ware ... 
  23. print "
  24. print "=================================================================
  25. exit
  26.  
  27.  
  28. :ReallyDoIt
  29.     # die Zeichenfolge  ^[[ entspricht einem <ESC>[ und ist die
  30.     # Startsequenz fuer VT100-Steuercodes
  31.  
  32.     # Bildschrim loeschen und Cursor 5 Zeilen nach unten
  33.     # <ESC>[5B  =>  Cursor 5 Zeilen nach unten
  34.     list ^l^[[2B
  35.  
  36.     # Cursor aus
  37.     list ^[[0 p
  38.  
  39.     ##
  40.     ##  Hauptschleife 
  41.     ##
  42.  
  43.     setn i,0
  44.  
  45.     :loop1
  46.         list " -o-o-^[[6D^[[A / \__^[[A^[[5D _^[[2B^[[2D"
  47.         inc i
  48.         compn    !i! !with! 45
  49.         iflow    goto loop1
  50.  
  51.     list "-o-o^^^[[6D^[[A / \_,^[[A^[[5D _^[[2B^[[2D"
  52.  
  53.     setn i,0
  54.     :loop2
  55.         inc i
  56.         compn    !i! !with! 5
  57.         iflow    goto loop2
  58.  
  59.  
  60.     list " -oo^^^[[5D^[[A / \^^^[[A^[[4D _^[[2B^[[2D"
  61.  
  62.     setn i,0
  63.     :loop3
  64.         inc i
  65.         compn    !i! !with! 5
  66.         iflow    goto loop3
  67.  
  68.     list " -%^^^[[4D^[[A /|_^[[A^[[3D  ^[[2B^[[5D^m"
  69.  
  70.     delay 2
  71.  
  72.     # Cursor an
  73.     list ^[[ p
  74.  
  75.     exit
  76.